home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / drawer.zip / UTILITY.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  319b  |  23 lines
  1. unit Utility;
  2.  
  3. interface
  4.  
  5. function min( a, b : word ) : word;
  6. function max( a, b : word ) : word;
  7.  
  8. implementation
  9.  
  10. function min( a, b : word ) : word;
  11. begin
  12.     if a<b then min := a else min := b;
  13. end;
  14.  
  15. function max( a, b : word ) : word;
  16. begin
  17.     if a>b then max := a else max := b;
  18. end;
  19.  
  20. begin
  21. end.
  22.  
  23.